##THIS IS THE CORRECT CODING##
library(foreign)
library(Zelig)


setwd("/Users/michelemargolis/Desktop/april 23")

inc <- read.dta("did_inc.dta")
exc <- read.dta("did_exc.dta")


hist(inc$did_inc, breaks=13, xlab="Difference-in-Difference for Left Party in Power (Ordinal, Inclusive)", main = "Fig. 2: Distribution of Simulated Difference-in-Difference Estimates", col=115)
abline(v=0, lty=2)



hist(exc$did_exc, breaks=13, xlab="Difference-in-Difference for Left Party in Power (Ordinal, Exclusive)", main = "Fig. 1: Distribution of Simulated Difference-in-Difference Estimates", col=115)
abline(v=0, lty=2)

